#!/usr/bin/perl
#
# using Proc::Daemon
#
# opt : http://libslack.org/daemon/
# opt : http://cr.yp.to/daemontools.html
#

use strict;
use warnings;
use Proc::Daemon;

Proc::Daemon::Init;

my $continue = 1;
$SIG{TERM} = sub { $continue = 0 };

while ($continue) {
     #do stuff
}
